setClass("PCADimChooser",contains="DimChooser",
		representation("VIRTUAL"),
		prototype=prototype(
				.description="PCA DimChooser"
		)
) 

setClass("kPCADimChooser",contains="DimChooser",
		representation("VIRTUAL"),
		prototype=prototype(
				.description="Kernel PCA DimChooser"
		)
) 